 #!/usr/bin/perl
    use strict;
    use warnings;

    my $string1 = 'three';
    my $string2 = 'five';

    if ($string1 eq $string2) {
        print "Equal\n";
    } else {
        print "Not equal\n";
    }